home *** CD-ROM | disk | FTP | other *** search
- echo off
- if '%1' == '' goto NO_PARMS
- goto OK
- :NO_PARMS
- echo USAGE: BTPACK file_to_pack
- goto END
- :OK
- rem
- rem 'P' to choose Pack on opening menu, %1 the Btrieve file, '!' for ENTER,
- rem '###' for ESC's.
- rem
- rem Remember that if more than one person on a network are using this, a
- rem temporary file with a unique file name should be created.
- rem
- echo P%1!!### >btpack.txt
- btfiler /k:btpack.txt
- del btpack.txt
- :END